home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / apprai / testdbf.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1995-09-06  |  4.4 KB  |  161 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Appraisal Jobs"
  4.    ClientHeight    =   2070
  5.    ClientLeft      =   1485
  6.    ClientTop       =   1470
  7.    ClientWidth     =   6735
  8.    FontBold        =   -1  'True
  9.    FontItalic      =   0   'False
  10.    FontName        =   "MS Sans Serif"
  11.    FontSize        =   12
  12.    FontStrikethru  =   0   'False
  13.    FontUnderline   =   0   'False
  14.    Height          =   2475
  15.    Left            =   1425
  16.    LinkTopic       =   "Form1"
  17.    ScaleHeight     =   2070
  18.    ScaleWidth      =   6735
  19.    Top             =   1125
  20.    Width           =   6855
  21.    Begin CommandButton DeleteBut 
  22.       Caption         =   "Delete"
  23.       Height          =   495
  24.       Left            =   1320
  25.       TabIndex        =   4
  26.       Top             =   960
  27.       Width           =   735
  28.    End
  29.    Begin TextBox Text3 
  30.       DataField       =   "PART_NO"
  31.       DataSource      =   "JOBS"
  32.       Height          =   495
  33.       Left            =   480
  34.       TabIndex        =   1
  35.       Text            =   "Text3"
  36.       Top             =   240
  37.       Width           =   1215
  38.    End
  39.    Begin TextBox Text2 
  40.       DataField       =   "desc"
  41.       DataSource      =   "JOBS"
  42.       Height          =   495
  43.       Left            =   2040
  44.       TabIndex        =   2
  45.       Text            =   "Text2"
  46.       Top             =   240
  47.       Width           =   3975
  48.    End
  49.    Begin CommandButton CancelBut 
  50.       Caption         =   "Cancel"
  51.       Enabled         =   0   'False
  52.       Height          =   495
  53.       Left            =   3120
  54.       TabIndex        =   0
  55.       Top             =   960
  56.       Width           =   735
  57.    End
  58.    Begin CommandButton SaveBut 
  59.       Caption         =   "Save"
  60.       Enabled         =   0   'False
  61.       Height          =   495
  62.       Left            =   2280
  63.       TabIndex        =   5
  64.       Top             =   960
  65.       Width           =   735
  66.    End
  67.    Begin CommandButton NewBut 
  68.       Caption         =   "New"
  69.       Height          =   495
  70.       Left            =   480
  71.       TabIndex        =   3
  72.       Top             =   960
  73.       Width           =   735
  74.    End
  75.    Begin Data Jobs 
  76.       Caption         =   "Jobs"
  77.       Connect         =   "FOXPRO 2.5"
  78.       DatabaseName    =   "c:\apprais"
  79.       Exclusive       =   0   'False
  80.       Height          =   495
  81.       Left            =   3960
  82.       Options         =   0
  83.       ReadOnly        =   0   'False
  84.       RecordSource    =   ""
  85.       Top             =   960
  86.       Width           =   2055
  87.    End
  88. Sub beginedit ()
  89.     cancelbut.Enabled = True
  90.     savebut.Enabled = True
  91.     newbut.Enabled = False
  92.     deletebut.Enabled = False
  93.     jobs.Enabled = False
  94.     'MsgBox "Begin edit", 64
  95.     jobs.Recordset.Edit
  96. End Sub
  97. Sub CancelBut_Click ()
  98.     newbut.Enabled = True
  99.     deletebut.Enabled = True
  100.     savebut.Enabled = False
  101.     cancelbut.Enabled = False
  102.     emode = jobs.EditMode
  103.     jobs.Enabled = True
  104.     jobs.UpdateControls
  105.     If emode = 2 Then
  106.         jobs.Recordset.Bookmark = oldbookmark
  107.     End If
  108. End Sub
  109. Sub DeleteBut_Click ()
  110.     cancelbut.Enabled = False
  111.     savebut.Enabled = False
  112.     newbut.Enabled = True
  113.     jobs.Recordset.Delete
  114. End Sub
  115. Sub Form_GotFocus ()
  116.       'jobs.Recordset.LockEdits = True
  117. End Sub
  118. Sub Form_KeyPress (KeyAscii As Integer)
  119.     'MsgBox "got keypress"
  120.     Exit Sub
  121.     If jobs.EditMode = data_editnone Then
  122.         MsgBox "Begining an Edit", 64
  123.         beginedit
  124.     End If
  125. End Sub
  126. Sub Form_Load ()
  127.     form1.KeyPreview = True
  128.     jobs.RecordSource = sqls
  129. End Sub
  130. Sub NewBut_Click ()
  131.     oldbookmark = jobs.Recordset.Bookmark
  132.     cancelbut.Enabled = True
  133.     savebut.Enabled = True
  134.     newbut.Enabled = False
  135.     deletebut.Enabled = False
  136.     jobs.Enabled = False
  137.     jobs.Recordset.AddNew
  138. End Sub
  139. Sub SaveBut_Click ()
  140.     cancelbut.Enabled = False
  141.     savebut.Enabled = False
  142.     newbut.Enabled = True
  143.     deletebut.Enabled = True
  144.     emode = jobs.EditMode
  145.     jobs.Enabled = True
  146.     jobs.Recordset.Update
  147.     If emode = 2 Then
  148.         jobs.Recordset.MoveLast
  149.     End If
  150. End Sub
  151. Sub Text2_Change ()
  152.     If TEXT2.Text <> jobs.Recordset("desc") Then
  153.         beginedit
  154.     End If
  155. End Sub
  156. Sub Text3_Change ()
  157.     If TEXT3.Text <> jobs.Recordset("part_no") Then
  158.         beginedit
  159.     End If
  160. End Sub
  161.